home *** CD-ROM | disk | FTP | other *** search
/ Publisher Platinum / Publisher Platinum.iso / clipart / utils / show38a / examples.exe / WORDRAND.SHW < prev    next >
Encoding:
Text File  |  1993-02-01  |  1.7 KB  |  77 lines
  1. VARIABLE CREATE value TYPE NUMBER 0
  2.  
  3. MATH value = RANDOM(8)
  4.  
  5. IF value EQ 1 DO JUMPMARK 1
  6. IF value EQ 2 DO JUMPMARK 2
  7. IF value EQ 3 DO JUMPMARK 3
  8. IF value EQ 4 DO JUMPMARK 4
  9. IF value EQ 5 DO JUMPMARK 5
  10. IF value EQ 6 DO JUMPMARK 6
  11. IF value EQ 7 DO JUMPMARK 7
  12. IF value EQ 8 DO JUMPMARK 8
  13.  
  14. MARK 1
  15.  
  16. VARIABLE CREATE var1 TYPE STRING "It is a fruit, long"
  17. VARIABLE CREATE var2 TYPE STRING "and it is yellow"
  18. VARIABLE CREATE result TYPE STRING "BANANA"
  19.  
  20. JUMPMARK 10
  21.  
  22. MARK 2
  23.  
  24. VARIABLE CREATE var1 TYPE STRING "It is a fruit, round"
  25. VARIABLE CREATE var2 TYPE STRING "and it is red"
  26. VARIABLE CREATE result TYPE STRING "APPLE"
  27.  
  28. JUMPMARK 10
  29.  
  30. MARK 3
  31.  
  32. VARIABLE CREATE var1 TYPE STRING "It is a plant, fragile"
  33. VARIABLE CREATE var2 TYPE STRING "and it is red"
  34. VARIABLE CREATE result TYPE STRING "ROSE"
  35.  
  36. JUMPMARK 10
  37.  
  38. MARK 4
  39.  
  40. VARIABLE CREATE var1 TYPE STRING "It is a plant, small"
  41. VARIABLE CREATE var2 TYPE STRING "and it is white and yellow"
  42. VARIABLE CREATE result TYPE STRING "DAISY"
  43.  
  44. JUMPMARK 10
  45.  
  46.  
  47. MARK 5
  48.  
  49. VARIABLE CREATE var1 TYPE STRING "It is a person, old"
  50. VARIABLE CREATE var2 TYPE STRING "and former president"
  51. VARIABLE CREATE result TYPE STRING "REAGAN"
  52.  
  53. JUMPMARK 10
  54.  
  55. MARK 6
  56.  
  57. VARIABLE CREATE var1 TYPE STRING "It is a person, woman"
  58. VARIABLE CREATE var2 TYPE STRING "and former prime minister"
  59. VARIABLE CREATE result TYPE STRING "THATCHER"
  60.  
  61. JUMPMARK 10
  62.  
  63. MARK 7
  64.  
  65. VARIABLE CREATE var1 TYPE STRING "It is an animal, hairy"
  66. VARIABLE CREATE var2 TYPE STRING "and has long arms"
  67. VARIABLE CREATE result TYPE STRING "APE"
  68.  
  69. JUMPMARK 10
  70.  
  71. MARK 8
  72.  
  73. VARIABLE CREATE var1 TYPE STRING "It is an animal, big"
  74. VARIABLE CREATE var2 TYPE STRING "and has a long nose"
  75. VARIABLE CREATE result TYPE STRING "ELEPHANT"
  76.  
  77. MARK 10